home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 25 / amigaformatcd25.iso / websites / haage&partner / ftp / stfax / stfax31upd.lha / Update STFax < prev    next >
Text File  |  1998-01-12  |  3KB  |  111 lines
  1. ; $VER: STFax-Update 1.1 (12.1.98)
  2. ;
  3. ; Script by Simone Tellini <wiz@pragmanet.it>
  4. ;
  5.  
  6. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  7. ;  set initial variables
  8. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  9.  
  10. (set @app-name "STFax Professional")
  11. (set OldVersion "3.0")
  12. (set NewVersion "3.1")
  13. (set OldFile "STFax:STFax")
  14. (set @error-msg "An unexpected error has occured. Installation aborted.")
  15.  
  16. (if (= (exists OldFile (noreq)) 0)
  17.     (abort @app-name OldVersion "has not been found!")
  18. )
  19.  
  20. (complete 0)
  21.  
  22. (welcome)
  23.  
  24. (if (not (patmatch "68020|68030|68040|68060" (database "cpu")))
  25.     (if (= 1 (askbool
  26.                 (prompt "Are you using the 68020 or above version of " @app-name "?\n")
  27.                 (help "A 68020 or better processor has been detected in this "
  28.                       "machine. You should answer Yes if you have installed "
  29.                       "the 00 optimized version of " @app-name "\n")
  30.                 (default 1)
  31.              )
  32.         )
  33.         (set PatchFile "STFax.020.patch")
  34.         (set PatchFile "STFax.patch")
  35.     )
  36. )
  37.  
  38. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  39. ;  Patch the file
  40. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  41.  
  42. (rename OldFile "STFax:STFax.old")
  43.  
  44. (set OldFile (cat OldFile ".old"))
  45.  
  46. (complete 20)
  47.  
  48. (working "Applying the patch...")
  49.  
  50. (run (cat "Patcher " OldFile " STFax:STFax " PatchFile)
  51.     (prompt "Applying the patch...")
  52. )
  53.  
  54. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  55. ;  Copy History file, if it exists
  56. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  57.  
  58. (if (exists "History.txt")
  59.     (copyfiles
  60.         (source "History.txt")
  61.         (dest "STFax:")
  62.     )
  63. )
  64.  
  65. (complete 40)
  66.  
  67. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  68. ;  Copy Textinput.mcc
  69. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  70.  
  71. (if (exists "MUI/Textinput.mcc")
  72.  
  73.     (copylib
  74.            (prompt "Installing updated MUI classes... (Textinput.mcc)")
  75.            (help   "This will install some MUI classes needed by STFax")
  76.            (source "MUI/Textinput.mcc")
  77.            (dest   "MUI:Libs/MUI")
  78.            (confirm)
  79.     )
  80.  
  81.     (copylib
  82.            (prompt "Installing updated MUI classes... (Textinput.mcp)")
  83.            (help   "This will install some MUI classes needed by STFax")
  84.            (source "MUI/Textinput.mcp")
  85.            (dest   "MUI:Libs/MUI")
  86.            (confirm)
  87.     )
  88.  
  89.     (copylib
  90.            (prompt "Installing updated MUI classes... (Textinputscroll.mcc)")
  91.            (help   "This will install some MUI classes needed by STFax")
  92.            (source "MUI/Textinputscroll.mcc")
  93.            (dest   "MUI:Libs/MUI")
  94.            (confirm)
  95.     )
  96. )
  97.  
  98. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  99. ;  End
  100. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  101.  
  102. (message @app-name " has been upgraded from version " OldVersion " to " NewVersion
  103.          "\n\nThe old STFax version has been renamed as STFax:STFax.old")
  104.  
  105. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  106. ;  All done.
  107. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  108.  
  109. (complete 100)
  110.  
  111.